From: Stephen Berman <stephen.berman@gmx.net>
Date: Tue, 20 May 2025 13:29:58 +0000 (+0200)
Subject: Fix todo-mode item insertion bug (bug#78506)
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~74
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https://%22Program/%22http:/www.example.com/cgi/%22https:/%22Program?a=commitdiff_plain;h=e0c6f3e765684a7f6d93702ad3ca4abe2b802579;p=emacs.git

Fix todo-mode item insertion bug (bug#78506)

* lisp/calendar/todo-mode.el (todo-insert-item--next-param): Unset
transient keymap on completing default or copy item insertion
command, to ensure that the next Todo mode key is recognized.
---

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 27678328b4a..652176af3b1 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -5821,7 +5821,13 @@ keys already entered and those still available."
       (if (memq last '(default copy))
 	  (progn
 	    (setq params0 nil)
-            (funcall gen-and-exec))
+            (funcall gen-and-exec)
+	    ;; Since the item insertion command is now done, unset
+	    ;; transient keymap to ensure the next Todo mode key is
+	    ;; recognized (bug#78506).  (Only for "default" and "copy"
+	    ;; parameters: for others, `last' may not yet be the final
+	    ;; parameter, so the map must still be evaluated.)
+	    (setq map nil))
         (let ((key (funcall key-of last)))
 	  (funcall add-to-prompt key (make-symbol
                                       (concat (symbol-name last) ":GO!")))